10 ' Определение среднего балла
20 CLS
30 S = 0
40 FOR I = 1 TO 4
50 PRINT "Группа №"; I
60 SGR = 0
70 FOR J = 1 TO 25
80 INPUT "Балл очередного студента ="; BALL
90 IF BALL < 0 THEN PRINT "Неверное значение!": GOTO 80
100 SGR = SGR + BALL
110 NEXT J
120 S = S + SGR
130 PRINT "Средний балл в группе №"; I; "равен"; SGR / 25
140 NEXT I
150 PRINT "Общий средний балл равен"; S / 4
160 END